-- card: 4281 from stack: in
-- bmap block id: 4522
-- flags: 4000
-- background id: 2238
-- name: Circle Segment
----- HyperTalk script -----
on mouseUp
  set numberFormat to <0.000000>

  --Calculate Arc AB
  get ((pi*card field "Radius")/180)*card field "Degrees"
  put it into card field "Arc AB"

  --Calculate Perimeter
  get (((pi*card field "Radius")/180)*card field "Degrees")+ 2*card field "Radius"
  put it into card field "Perimeter"

  --Calculate Area of Segment ABC
  get (card field "Arc AB"*Card field "Radius")/2
  put it into card field "Area of Segment ABC"
end mouseUp


-- part 1 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=312 top=87 right=105 bottom=459
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Radius


-- part 2 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=312 top=110 right=128 bottom=444
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Degrees


-- part 3 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=310 top=180 right=199 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Arc AB


-- part 4 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=310 top=202 right=221 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Perimeter


-- part 5 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=302 top=244 right=263 bottom=449
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Area of Segment ABC


-- part contents for card part 1
----- text -----
.5

-- part contents for card part 2
----- text -----
90

-- part contents for card part 3
----- text -----
0.785398

-- part contents for card part 4
----- text -----
1.785398

-- part contents for card part 5
----- text -----
0.196350